rumus find pada excel

 ada sebuah string yang mempunyai isi text sebagai berikut 


Diberitahukan kepada Sdr/i   MOCH------------,     NoKAP = 1234567890    Password telah berhasil direset, password = xxxx  Ganti secara berkala password saudara/ri    Pemberitahuan ini dikirim secara otomatis dari system 


Kita akan mencari nilai NoKAP

dalam excel ada rumus find

sehingga kita bisa menggunakan rumus find tersebut untuk mencari nilai NoKAP

=FIND("NoKAP";A2)

artinya kita akan mencari lewat posisi string NoKAP pada cell A2

sehingga akan muncul posisi dari string NoKAP tsb, selanjutnya untuk menggambil NoKAP bisa menggunakan mid.



demikian, terima kasih


Cara Install DLL jalan di PHP Windows Server 2019

 1. Install DLL

2. edit PHP ini

[PHP_COM_DOTNET]

extension=php_com_dotnet.dll

enable_dl = On

extension=--nu.dll

extension=--riCrypt.dll


3. restart php

Create, Insert, Edit DBF

 Ada satu aplikasi yang bisa create, insert, edit file dbf

Edit DBF file | DBF Viewer 2000 (dbf2002.com)

silahkan download di alamat url tsb diatas

SQLiteStudio untuk mengelola database sqlLite

 SQLiteStudio adalah suatu aplikasi yang digunakan untuk mengelola database sqlite, penggunaan nya sangat simple dan sederhana, dan yang pasti gratis alias tidak berbayar.

anda dapat download lewat utl berikut

SQLiteStudio



Kirim POST ke Server Menggunakan VB.Net Script VB

                    Dim reg As String

                    reg = "https://localhot/test.php"

                    Dim _req As HttpWebRequest = HttpWebRequest.Create(reg)

                    _req.Method = "POST"

                    _post = "pass=inun20211"

                    Dim _postByte As Byte() = Encoding.UTF8.GetBytes(_post)

                    _req.ContentType = "application/x-www-form-urlencoded"

                    _req.ContentLength = _postByte.Length

                    Dim _postStream As Stream = _req.GetRequestStream()

                    _postStream.Write(_postByte, 0, _postByte.Length)

                    _postStream.Close()

                    Dim response As WebResponse = _req.GetResponse()

                    _postStream = response.GetResponseStream()

                    Dim reader As New StreamReader(_postStream)

                    Dim _resServer As String = reader.ReadToEnd()

                    Dim t() As String = Split(_resServer, ";")

                    If t(0) = "GAGAL" Then

                        'MsgBox(t(0))

                        MsgBox(" GAGAL " & vbNewLine & t(1))

                        Me.Close()

                    End If


Postingan Lama